Amiga Mag HDD Backup

home *** CD-ROM | disk | FTP | other *** search

/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / ***9.11 All NEWer important / 10.2 / Finch⁄Front Ending C / CanDoMJ < prev next >

Wrap

Text File | 1983-05-04 | 12KB | 58 lines

FORM??-?DECKANNO???AV-1 Tokens V3??NAME???CanDoMJ?RESO??-???╠┴MJSettings??╠?UserWindow????????y?????????????????????????CanDoMJ??????x????????????a???????????????????????? ?????????? ??????????????????? ╠?Go????????y??1???????e???topaz?????????????????????????????????????????? GO ???????\??? ?????????g? ???????^? ??????? ?????????DrawMJPic??GO??? ╠?LowReal???????y????;???????????????o????????????s??? ?????m???-2.9???????\????????? ??????¼???HighReal???ON??? ╠?HighReal????????y????Y???????????????o????????????s??? ?????m???2.9??????\????????? ??????¼???LowImag??ON??? ╠?LowImag???????y????w???????????????o????????????s??? ?????m???-2.0???????\????????? ??????¼???HighImag???ON??? ╠?HighImag????????y????????????????????o????????????s??? ?????m???2.0??????\????????? ??????¼???JReal??ON??? ╠?JImag???????y???┴?╝???????????????o????????????s??? ?????m???0.0??????\????????? ??????¼???LowReal??ON??? ╠?JReal???????y???┴?╟???????????????o????????????s??? ?????m???0.5??????\????????? ??????¼???JImag??ON??? ╠?GoC???????y??????????e???topaz?????????????????????????????????????????? GO C ???????\??? ?????????g? ???????^? ??????? ?????????DrawMJPic??GOC?? ╠?SeeMJPic????????y???????.??h???CanDo:Brushes/CanDoMJButton.br?????.??}???CanDo:Brushes/CanDoMJButton.br???????g????????^???????? ?????????DrawMJPic??SEE?? ╠?MaxDwell????????Z????PlotInfo???????e???topaz??????????????????????????????????????????Max Dwell??????u????????g? ???????~? ????? ╠?MD15????????Z????MaxDwell???????e???topaz?????????????????????????????????????????? 15 ??????u????????g? ???????~? ??1????????S???MaxDwell=15???????¼???MD31???OFF???????¼???MD63???OFF???????¼???MD127??OFF?? ╠?MD31????????Z????MaxDwell???????e???topaz?????????????????????????????????????????? 31 ??????u????????g? ???????~? ??2????????S???MaxDwell=31???????¼???MD15???OFF???????¼???MD63???OFF???????¼???MD127??OFF?? ╠?MD63????????Z????MaxDwell???????e???topaz?????????????????????????????????????????? 63 ??????u????????g? ???????~? ??3????????S???MaxDwell=63???????¼???MD15???OFF???????¼???MD31???OFF???????¼???MD127??OFF?? ╠?MD127???????Z????MaxDwell???????e???topaz?????????????????????????????????????????? 127 ??????u????????g? ???????~? ??4????????S???MaxDwell=127????????¼???MD15???OFF???????¼???MD31???OFF???????¼???MD63???OFF?? ╠?Resolution????????Z????PlotInfo???????e???topaz??????????????????????????????????????????Resolution???????u????????g? ???????~? ????? ╠?RES1????????Z????Resolution???????e???topaz?????????????????????????????????????????? 1 ??????u????????g? ???????~? ??5????????S???Resolution=1????????¼???RES2???OFF???????¼???RES4???OFF???????¼???RES8???OFF?? ╠?PlotType????????Z????PlotInfo???????e???topaz??????????????????????????????????????????Plot Type??????u????????g? ???????~? ????? ╠?Mandelbrot????????Z????PlotType???????e???topaz?????????????????????????????????????????? Mandelbrot ???????u????????g? ???????~? ??M????????S???PlotType="M"????????¼???Julia??OFF?? ╠?Julia???????Z????PlotType???????e???topaz?????????????????????????????????????????? Julia ???????u????????g? ???????~? ??J????????S???PlotType="J"????? ???¼???Mandelbrot???OFF?? ╠?RES2????????Z????Resolution???????e???topaz?????????????????????????????????????????? 2 ??????u????????g? ???????~? ??6????????S???Resolution=2????????¼???RES1???OFF???????¼???RES4???OFF???????¼???RES8???OFF?? ╠?RES4????????Z????Resolution???????e???topaz?????????????????????????????????????????? 4 ??????u????????g? ???????~? ??7????????S???Resolution=4????????¼???RES1???OFF???????¼???RES2???OFF???????¼???RES8???OFF?? ╠?RES8????????Z????Resolution???????e???topaz?????????????????????????????????????????? 8 ??????u????????g? ???????~? ??8????????S???Resolution=8????????¼???RES1???OFF???????¼???RES2???OFF???????¼???RES4???OFF?? ╠?Default???????Z????PlotInfo???????e???topaz???????????????????????????????????? ??????Default Settings???????u????????g? ???????~? ??D????????@???MJSettings??? ?%??????A???Invocation=0????????S???MaxDwell=15???????S???Resolution=1????????S???PlotType="M"????????"?????????S???Invocation=1??????:???u??? ;Remove check mark from all menu subitems????????¼???MD15???OFF???????¼???MD31???OFF???????¼???MD63???OFF???????¼???MD127??OFF???????¼???RES1???OFF???????¼???RES2???OFF???????¼???RES4???OFF???????¼? ??RES8???OFF???? ???¼? ??Mandelbrot???OFF???????¼???Julia??OFF????<???u??? ;Put check mark on appropriate menu subitems????$???¼? ??"MD"||MaxDwell???ON?????&???¼???"RES"||Resolution??ON????????A???PlotType="M"????? ???¼???Mandelbrot???ON?????????????????¼???Julia??ON????????"??????2???u??? ;Set text entries if they changed????????A???Arg1="Reset"????????????LowReal??LR????????????HighReal???HR????????????LowImag??LI????????????HighImag???HI????????????JReal??JR????????????JImag??JI????????"?????????╟???CGTimes????????┬?????????????⌐????????????┴? ?????:???~?!??MANDELBROT OR JULIA SET BOUNDARIES???å???????╟?"??Pearl????????┬?#???????????⌐?$???????????┴?%?????,???~?&?? Low Real Value:??ï?8???,???~?'?? High Real Value:??ï?V???,???~?(?? Low Imaginary Value:??ï?t???,???~?)??High Imaginary Value:??ï?????(???~?*??Julia Real Value:???¼???(???~?+??Julia Imag Value:??????????╟?,??Pearl????????┬?-????????????⌐?.???????????┴?/?????"???~?0??See Picture??I???)DrawMJPic????&???S???LR=TextFrom("LowReal")?????&???S???HR=TextFrom("HighReal")????&???S???LI=TextFrom("LowImag")?????&???S???HI=TextFrom("HighImag")????$???S???JR=TextFrom("JReal")?????$???S???JI=TextFrom("JImag")????? ???@???MJPlotPic??Arg1??? ╠┴MJPlotPic??&╠?UserWindow????????y?????????????@??????????????????x??? ????????a???????????????????????????? ?????????? ??????????????????? ╠?NewRange????????y?????????????@???????\????????????????g????????^??????????????S???BeginX=MouseX???????S???BeginY=MouseY???????S???CurrW=0???????S???CurrH=0???????┴??????0??????BeginX???BeginY???CurrW??CurrH?????@???A???MouseX<>(CurrW+BeginX) or MouseY<>(CurrH+BeginY)?????0??????BeginX???BeginY???CurrW??CurrH????"???S???CurrW=MouseX-BeginX????"???S???CurrH=MouseY-BeginY????0??????BeginX???BeginY???CurrW??CurrH???????"???? ???0??????BeginX???BeginY???CurrW??CurrH????6???S???Temp=LR+(HR-LR)*BeginX/(WindowWidth-1)?????<???S???HR=LR+(HR-LR)*(BeginX+CurrW)/(WindowWidth-1)????????S???LR=Temp????>???S???Temp=HI-(HI-LI)*(BeginY+CurrH)/(WindowHeight-1)????4???S???HI=HI-(HI-LI)*BeginY/(WindowHeight-1)???????S???LI=Temp??????????MJPic????&????? ??MJPic??ram:CanDoMJPic?????"???@? ??MJSettings???Reset?? ╠?SavePic???????Z????Options??????e???topaz?????????????????????????????????????????? Save Picture ???????u????????g? ???????~? ??S?????6???S???FNNew=AskForFileName(FN,"Save Picture")???????A???FNNew<>""???????S???FN=FNNew???????????MJPic???????????MJPic??FN????????"???? ╠?SetColors???????Z????Options??????e???topaz?????????????????????????????????????????? Set Colors ???????u????????g? ???????~? ??C?????,???N???CanDo:Decks/ColorChange??CC?????"???f???CC???ChangePalette?? ╠?ToMJSettings????????Z????Options??????e???topaz?????????????????????????????????????????? To Settings ??????u????????g? ???????~? ??T???????????MJPic????&???????MJPic??ram:CanDoMJPic?????"???@???MJSettings???Reset?? ????.???u??? ;Draw picture using CanDo code???????A???Arg1="GO"???????┴??????4???S???SR=(HR-LR)*Resolution/(WindowWidth-1)????6???S???SI=(HI-LI)*Resolution/(WindowHeight-1)????? ???S???HC=WindowColors-1???????S???LC=0?????"???u??? ;Begin iterations????????S? ??X=0???????S? ??Y=0???????S???R=LR????????S???I=HI?????$???u? ?? ;Plot Mandelbrot set???????A???PlotType="M"????????«???Y<WindowHeight????????«???X<WindowWidth???????S???LoopR=0???????S???LoopI=0???????S???Count=0???????`??????.???S???Temp=LoopR*LoopR-LoopI*LoopI+R?????$???S???LoopI=2*LoopR*LoopI+I???????S???LoopR=Temp?????,???A???(LoopR*LoopR+LoopI*LoopI)>4.0???????,?????????"?????????S???Count=Count+1???????ü???Count>=MaxDwell???????⌐???Count???????A???Resolution=1???????????X??Y???????? ?????0????!??X??Y??Resolution???Resolution????????"?"????????S?#??X=X+Resolution????????S?$??R=R+SR????????#?%????????S?&??X=0???????S?'??R=LR????????S?(??Y=Y+Resolution????????S?)??I=I-SI????????#?*????? ???u?+?? ;Plot Julia set???????? ?,??PlotType="J"????????«?-??Y<WindowHeight????????«?.??X<WindowWidth???????S?/??LoopR=R???????S?0??LoopI=I???????S?1??Count=0???????`?2?????,???A?3??(LoopR*LoopR+LoopI*LoopI)>4.0???????,?4????????"?5????????S?6??Count=Count+1????.???S?7??Temp=LoopR*LoopR-LoopI*LoopI+JR????&???S?8??LoopI=2*LoopR*LoopI+JI????????S?9??LoopR=Temp????????ü?:??Count>=MaxDwell???????⌐?;??Count???????A?<??Resolution=1?????????=??X??Y????????>?????0???????X??Y??Resolution???Resolution????????"?@????????S?A??X=X+Resolution????????S?B??R=R+SR????????#?C????????S?D??X=0???????S?E??R=LR????????S?F??Y=Y+Resolution????????S?G??I=I-SI????????#?H????????"?I?????*???u?J?? ;Draw picture using C code??????? ?K??Arg1="GOC"?????8???S?L??Command="RCF:C_Progs/CanDoMJC/CanDoMJC "?????2???S?M??Command=Command||WindowAddress||" "????.???S?N??Command=Command||MaxDwell||" "?????0???S?O??Command=Command||Resolution||" "?????B???S?P??Command=Command||LR||" "||HR||" "||LI||" "||HI||" "????.???S?Q??Command=Command||PlotType||" "?????,???S?R??Command=Command||JR||" "||JI?????????S??Command??????? ?T??Arg1="SEE"?????&???]?U??ram:CanDoMJPic???MJPic?????????V??MJPic???????"?W???